Шаг 141 - Интеграция VBА в наше приложение – Создаем ActiveX EXE.

Для того что бы получить доступ к функциям VBA на нужно создать AcriveX EXE – создаем.

141_1.gif (11039 b)

Имя класса и проекта даем свои.

141_2.gif (2149 b)

Запуск проекта через Main подробнее Шаг 130 - Запуск проекта VB.

Public myapp As MyAppication

Sub main()
Set myapp = New MyAppication
End Sub

Теперь нам нужно сделать ссылку на APC60.DLL подробнее - Шаг 4 - Тестируем DLL. С этого момента мы можем завести объект APC.

Public vbas As Apc
Public myapp As MyAppication

Sub main()
Set myapp = New MyAppication
End Sub

Добавим форму в проект, на нее кнопку по которой мы будем производить тестирование.

141_3.gif (6506 b)

В классе приложение метод который форму будет показывать.

Public Sub Show()
MyForm.Show 0
End Sub

И добавим этот метод в момент старта приложения.

Sub main()
Set myapp = New MyAppication
myapp.Show
End Sub

Для проверки нам просто осталось указать режим старта в свойствах проекта.

141_4.gif (4102 b)

Попробуйте запустить проект. У вас будет просто окно. Читаем дальше.

Hosted by uCoz